unit UCadModeloBloco;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Modelo, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons,
  CheckLst, ExtCtrls, Mask, DBCtrls;

type
  TFCadModeloBloco = class(TFModelo)
    qPadraoEMPBLODESCRICAO: TStringField;
    qPadraoEMPREENDID: TIntegerField;
    qPadraoEMPBLOID: TIntegerField;
    qPadraoEMPBLOQTD: TIntegerField;
    lbl1: TLabel;
    dbedtEMPBLODESCRICAO: TDBEdit;
    lbl2: TLabel;
    dbedtEMPREENDID: TDBEdit;
    lbl3: TLabel;
    dbedtEMPBLOID: TDBEdit;
    lbl4: TLabel;
    dbedtEMPBLOQTD: TDBEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Panel1: TPanel;
    QEMPREENDIMENTOBLOCOMODELO: TQuery;
    dbgrdEMPREENDIMENTOBLOCOMODELO: TDBGrid;
    dsEMPREENDIMENTOBLOCOMODELO: TDataSource;
    QEMPREENDIMENTOBLOCOMODELOEMPREENDID: TIntegerField;
    QEMPREENDIMENTOBLOCOMODELOEMPBLOID: TIntegerField;
    QEMPREENDIMENTOBLOCOMODELOMODID: TIntegerField;
    QEMPREENDIMENTOBLOCOMODELOMODDESCRICAO: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FCadModeloBloco: TFCadModeloBloco;

implementation

{$R *.dfm}

end.
